home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / card_19780.txt < prev    next >
Text File  |  1991-04-30  |  1KB  |  66 lines
  1. -- card: 19780 from stack: in.3r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2202
  5. -- name: noFieldDelete
  6. ----- HyperTalk script -----
  7. on deleteField
  8.   beep 3
  9.   answer "You can't do that"
  10.   domenu copy field
  11.   domenu paste field
  12. end deleteField
  13.  
  14.  
  15. -- part 3 (field)
  16. -- low flags: 00
  17. -- high flags: 0004
  18. -- rect: left=253 top=182 right=246 bottom=392
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 3
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Can't delete me!
  27. ----- HyperTalk script -----
  28. on newfield
  29.   put the short name of the target into card field the short name of the target
  30. end newfield
  31.  
  32.  
  33. -- part contents for background part 10
  34. ----- text -----
  35. 10
  36.  
  37. -- part contents for background part 3
  38. ----- text -----
  39. noFieldDelete
  40.  
  41. -- part contents for background part 2
  42. ----- text -----
  43. --NOTE: Handlers are included in the Function section for convenience.
  44. --
  45. --If you ever create a stack where you want the uninitiated user prevented from 
  46. --accidentally deleting an important field, put the following handler in the background 
  47. --or stack script.
  48. --
  49. --It is installed in this card.  Try to delete the field below...
  50. --
  51. --by Steve Drazga, AnalytX
  52. --
  53. on deleteField
  54.    beep 3
  55.    answer "You can't do that"
  56.    domenu copy field
  57.    domenu paste field
  58. end deleteField
  59.  
  60. -- part contents for card part 3
  61. ----- text -----
  62. Can't delete me!
  63.  
  64. -- part contents for background part 19
  65. ----- text -----
  66. Functions